From: John Yates <john@yates-sheets.org>
Date: Wed, 21 Mar 2012 17:02:09 +0000 (+0800)
Subject: * progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~402
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=266a7ac9c97dc0832533c8024f3225b468f08ee4;p=emacs.git

* progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first line.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 957c96bcec2..7b1e1c52c6d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-21  John Yates  <john@yates-sheets.org>  (tiny change)
+
+	* progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first
+	line (Bug#10855).
+
 2012-03-21  Drew Adams  <drew.adams@oracle.com>
 
 	* info.el (Info-menu): Handle string value of FORK arg (Bug#10858).
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 104a8f96727..26db60ddbc2 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -607,6 +607,7 @@ as cdr."
     ;; forward comment, and see if we are inside, then extend
     ;; forward and backward as long as we have comments
     (let ((q (point)))
+      (skip-chars-forward "[:blank:]")
       (when (or (looking-at hs-c-start-regexp)
                 (re-search-backward hs-c-start-regexp (point-min) t))
         ;; first get to the beginning of this comment...